"! "
UnitTest subclass: BlockTest [
<category: ''>
"! "
testLoops [
|x|
1 to: 5 do: [ :i |
	x := 1.
	1 to: i do: [ :j |
		x := x * j.
	].
	self assert: (i factorial = x).
].
]

"! "
testSimple [
self assert: ([ ] value) = nil.
self assert: ([ 3 ] value) = 3.
self assert: ([:x| x*2] value: 4) = 8.
]

]

"! "
MetaUnitTest subclass: MetaBlockTest [
<category: ''>
]

